home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
clarion.arc
/
CLARION.HLP
(
.txt
)
< prev
next >
Wrap
Clarion Help
|
1991-07-24
|
7KB
|
224 lines
The CLARION Professional Developer
Manage Directories
Editor
Compiler
Filer
Helper
Processor
Sorter
Designer
Translator
Scanner
Reporter
Crossrefer
Converter
Director
Language
Tailor
Environment
This is the Professional Developer tutorial selection screen.
There are tutorials for each Clarion utility program, as well
as the Clarion language structure and development environment.
The Environment tutorial should be viewed first. It begins
a series of tutorials that should be viewed sequentially.
Each tutorial within this series recommends its successor.
The remaining tutorials can be viewed in any order.
Use the cursor arrow keys to select a tutorial. Then press
the Enter key to view it. When the tutorial completes, it
will return to this menu. Press the Esc key to return to
this menu from any page of a tutorial.
This is a tutorial for the Clarion Professional Developer.
You may turn pages manually, or you may have them turned
automatically for you.
To continue, please press M for
manual, A for automatic, or Esc to return to DOS.
You can change the viewing mode at any time by pressing M for
manual or A for automatic.
In either viewing mode, the right arrow key turns to the next
page, and the left arrow key turns back to the last page. In
manual viewing mode, the tutorial waits for you to press an
arrow key. In automatic viewing mode, the tutorial gives you
time to read a page then turns to the next page automatically.
You can speed up the tutorial by pressing the gray + key, or
slow it down by pressing the gray - key. You can terminate a
tutorial by pressing the Esc key.
PORDER
PROGRAM
IINCLUDE('STD_KEYS.CLA')
INCLUDE('CTL_KEYS.CLA')
This is Source Code generated by
INCLUDE('ALT_KEYS.CLA')
DESIGNER. This is the beginning
INCLUDE('SHF_KEYS.CLA')
of the program, DESIGNER will
produce CODE by using a template
REJECT_KEY
EQUATE(CTRL_ESC)
contained in a Model file. Note
ACCEPT_KEY
EQUATE(CTRL_ENTER)
the MAP of Modules and Procedures.
EQUATE(1)
FALSE
EQUATE(0)
OPROC(G_OPENFILES)
?MODULE('ORDER01')
APROC(ORDER_MENU)
!Order Processing System
OMODULE('ORDER02')
APROC(PROCESS)
!Order Processing
OMODULE('ORDER03')
APROC(ORDER_UPDATE)
!Order Item Entry
OMODULE('ORDER04')
0ORDER.CLA 0:1
(LIN OVR
IND CAP NUM
EJECT('FILE LAYOUTS')
.CUSTOMER
FILE,PRE(CUS),CREATE,RECLAIM
'CUST_KEY
KEY(CUS:NUMBER),NOCASE
NAME_KEY
KEY(CUS:NAME),DUP,NOCASE
This section of code contains the
COMMENT
MEMO(90)
File Definitions. CLARION allows
RECORD
RECORD
selection of field types such as;
NUMBER
DECIMAL(4,0)
BYTE, SHORT, LONG, DECIMAL, REAL,
CUST_DATE
STRING AND MEMO. All source code
STRING(20)
generated by DESIGNER is fully
ADDRESS
STRING(20)
commented.
CITY_STATE
STRING(20)
DECIMAL(5,0)
3CONTACT
STRING(30)
!Customer Contact
PHONE
DECIMAL(10,0)
!Customer Telephone Number
MGROUP,OVER(CUS:COMMENT)
,CUS_MEMO_ROW
STRING(45),DIM(2)
ORDERS
FILE,PRE(ORD),CREATE,RECLAIM
'ORDER_KEY
KEY(ORD:CUSTOMER,ORD:ORDER),DUP,NOCASE
RECORD
RECORD
;CUSTOMER
DECIMAL(4,0)
!Customer Number
ORDER
DECIMAL(4,0)
!Order Number
ORDER.CLA 54:1
'LIN OVR
IND CAP NUM
prLAN4
EJECT('CODE SECTION')
0CODE
LSETHUE(7,0)
!SET WHITE ON BLACK
BLANK
The Code Section begins with
! AND BLANK
G_OPENFILES
the keyword CODE. The code
!OPEN OR CREATE FILES
SETHUE()
is always generated with
THE SCREEN
ORDER_MENU
complete error checking and
!Order Processing System
RETURN
recovery routines.
!EXIT TO DOS
G_OPENFILES PROCEDURE
!OPEN FILES & CHECK FOR ERROR
LSHOW(25,1,CENTER('OPENING FILE: ' & 'CUSTOMER',80)) !DISPLAY FILE NAME
OPEN(CUSTOMER)
!!OPEN THE FILE
IF ERROR()
%!OPEN RETURNED AN ERROR
CASE ERRORCODE()
! CHECK FOR SPECIFIC ERROR
OF 46
(! KEYS NEED TO BE REBUILT
SETHUE(0,7)
! BLACK ON WHITE
SHOW(25,1,CENTER('REBUILDING KEY FILES FOR CUSTOMER',80)) !INDICATE MSG
BUILD(CUSTOMER)
! CALL THE BUILD PROCEDURE
SETHUE(7,0)
! WHITE ON BLACK
BLANK(25,1,1,80)
! BLANK THE MESSAGE
)!IF NOT FOUND,
CREATE(CUSTOMER)
! CREATE
)! ANY OTHER ERROR
ORDER.CLA 105:1
&LIN OVR
IND CAP NUM
This is a quick look at the CODE generated by DESIGNER, for
a more in-depth look at the CLARION LANGUAGE refer to the
Language Reference manual.
ETEDT
CTCMP
FTFIL
HTHLP
PTPRO
STSRT
DTDES
TTTRN
STSCN
RTRPT1
CTXRF
CTCVT
DTDIR
LLAN1
TTTLR
ETENV
QRETURN
Editor
Compiler
Filer
Helper
Processor
Sorter
Designer
Translator
Scanner
Reporter
Crossrefer
Converter
kDirector
Language
Tailor
Environment
!BASE
BASE_W1
BASE_W2 v
BASE_W3
BEGIN
BLUE
INSTR
LAN1 Z
LAN2
LAN3
LAN4
MENU